home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / Command.dopus5 < prev    next >
Text File  |  1998-09-10  |  220b  |  11 lines
  1. /* DOpus lister set attr */
  2. options results
  3. address 'DOPUS.1'
  4. lister close all
  5. lister new mode name "DOpus5:Icons"
  6. handle = result
  7. lister wait handle
  8. lister set handle source lock
  9. call setclip('Lister.test',handle)
  10. exit
  11.